object Form1: TForm1 Left = 96 Top = 4 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'FTP Connect' ClientHeight = 393 ClientWidth = 478 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter OnActivate = FormActivate OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object SpeedButton2: TSpeedButton Left = 337 Top = 315 Width = 25 Height = 25 Hint = 'Send file to local hard disk' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333FF3333333333333003333333333333F88F3333333333300C033 333333333F8838F33333333300CCC0333333333F883338FFFFFF3300CCCCC000 00003F8833333888888800CCCCCCCCCCCCC0883FF33333FFFFF83300CCCCC000 000033883FF338888888333300CCC03333333333883FF8F3333333333300C033 33333333338838F3333333333333003333333333333388333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object ByteCounter: TLabel Left = 84 Top = 41 Width = 199 Height = 16 Alignment = taCenter AutoSize = False Color = 328965 Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False Visible = False end object Bevel1: TBevel Left = 0 Top = 0 Width = 478 Height = 9 Align = alTop Shape = bsTopLine end object SpeedButton6: TSpeedButton Left = 505 Top = 292 Width = 25 Height = 25 Hint = 'Clear log' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B55555555555555750000} NumGlyphs = 2 ParentShowHint = False ShowHint = True Visible = False OnClick = SpeedButton6Click end object Label8: TLabel Left = 632 Top = 680 Width = 33 Height = 13 Caption = 'Label8' end object Gauge: TGauge Left = 72 Top = 519 Width = 209 Height = 25 Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ForeColor = clBlue ParentFont = False Progress = 0 Visible = False end object SpeedButton7: TSpeedButton Left = 505 Top = 264 Width = 25 Height = 25 Hint = 'Save log' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True Visible = False OnClick = SpeedButton7Click end object Log: TMemo Left = 660 Top = 690 Width = 37 Height = 65 Color = clWindowText Font.Color = clLime Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Lines.Strings = ( 'FT' 'P ' 'Co' 'nn' 'ec' 't') ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 Visible = False end object ConnectBtn: TButton Left = 8 Top = 353 Width = 104 Height = 21 Caption = '&Connect' TabOrder = 3 OnClick = ConnectBtnClick end object Button10: TButton Left = 249 Top = 353 Width = 104 Height = 21 Caption = 'E&xit' TabOrder = 6 OnClick = Button10Click end object Button11: TButton Left = 128 Top = 353 Width = 104 Height = 21 Caption = '&Disconnect' TabOrder = 4 OnClick = Button11Click end object Button4: TButton Left = 470 Top = 202 Width = 113 Height = 21 Caption = '&Stop Transfer' TabOrder = 1 Visible = False OnClick = Button4Click end object StatusBar1: TStatusBar Left = 0 Top = 374 Width = 478 Height = 19 Panels = < item Width = 78 end item Width = 290 end> SimplePanel = False end object Button1: TButton Left = 369 Top = 353 Width = 104 Height = 21 Caption = '&About' TabOrder = 7 OnClick = Button1Click end object Panel3: TPanel Left = 0 Top = 8 Width = 481 Height = 345 BevelOuter = bvNone BorderWidth = 5 Caption = 'Panel3' ParentColor = True TabOrder = 2 object PageControl1: TPageControl Left = 5 Top = 1 Width = 468 Height = 340 ActivePage = TabSheet1 Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Server information' object Label10: TLabel Left = 8 Top = 88 Width = 61 Height = 13 Caption = 'Hostname:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 7 Top = 125 Width = 48 Height = 13 Caption = 'User ID:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 7 Top = 196 Width = 136 Height = 13 Caption = 'Password: *' Font.Color = clRed Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label13: TLabel Left = 8 Top = 8 Width = 75 Height = 13 Caption = 'Profile name:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object SpeedButton8: TSpeedButton Left = 192 Top = 172 Width = 25 Height = 25 Hint = 'Add profile (not available in shareware)' Enabled = False Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550 3055577777555557F7F5550005555559995555777555555777550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True Visible = False OnClick = Button19Click end object SpeedButton9: TSpeedButton Left = 184 Top = 188 Width = 25 Height = 25 Hint = 'Delete profile (not available in shareware)' Enabled = False Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033 3333333337FFF7F33333333330000033333333333777773333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True Visible = False OnClick = Button20Click end object SpeedButton10: TSpeedButton Left = 168 Top = 188 Width = 25 Height = 25 Hint = 'Modify profile (not available in sharewate)' Enabled = False Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF7733333033000000033333373377777773330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True Visible = False OnClick = Button21Click end object Label14: TLabel Left = 258 Top = 21 Width = 203 Height = 16 Caption = '* Password will not be saved.' Font.Color = clRed Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label15: TLabel Left = 7 Top = 247 Width = 28 Height = 13 Caption = 'Port:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 8 Top = 48 Width = 117 Height = 13 Caption = 'Your E-mail address:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label1: TLabel Left = 8 Top = 160 Width = 89 Height = 13 Caption = 'Initial directory:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 264 Top = 40 Width = 139 Height = 32 Caption = 'Connected to: 127.0.0.1 (local)' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object CounterByte: TLabel Left = 152 Top = 112 Width = 6 Height = 13 Caption = '0' Color = clBlack Font.Color = clWhite Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Bevel2: TBevel Left = 152 Top = 112 Width = 305 Height = 15 Hint = 'Bytes transfered' ParentShowHint = False ShowHint = True end object Gauge1: TGauge Left = 152 Top = -1 Width = 307 Height = 16 Progress = 0 Visible = False end object Edit4: TEdit Left = 7 Top = 101 Width = 136 Height = 21 Hint = 'Domain or IP' ParentShowHint = False ShowHint = True TabOrder = 2 end object Edit5: TEdit Left = 6 Top = 138 Width = 137 Height = 21 Hint = 'Your user name.' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 3 Text = 'Anonymous' end object Edit6: TEdit Left = 6 Top = 209 Width = 137 Height = 21 Hint = 'While using Anonymous account type your E-mail address.' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 end object CheckBox2: TCheckBox Left = 6 Top = 231 Width = 122 Height = 15 Caption = 'Hide password' Ctl3D = True Font.Color = clRed Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold, fsUnderline] ParentCtl3D = False ParentFont = False TabOrder = 6 OnClick = anonimClick end object Profile: TComboBox Left = 8 Top = 21 Width = 136 Height = 24 Color = 8421440 Ctl3D = True DropDownCount = 15 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentCtl3D = False ParentFont = False Sorted = True TabOrder = 0 Text = 'Profile' OnChange = ComboBox1Change end object SpinEdit2: TSpinEdit Left = 6 Top = 259 Width = 44 Height = 22 Ctl3D = True Font.Color = clBlack Font.Height = -8 Font.Name = 'MS Sans Serif' Font.Style = [] MaxValue = 500 MinValue = 0 ParentCtl3D = False ParentFont = False TabOrder = 7 Value = 21 end object Edit1: TEdit Left = 8 Top = 64 Width = 137 Height = 21 Ctl3D = True Font.Color = clBlue Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 1 end object Memo1: TMemo Left = 151 Top = 129 Width = 310 Height = 176 Hint = 'Right click for options' Color = clBlack Font.Color = clLime Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False PopupMenu = PopupMenu1 ScrollBars = ssVertical ShowHint = True TabOrder = 11 end object BitBtn1: TBitBtn Left = 162 Top = 19 Width = 95 Height = 25 Caption = 'Add profile' ParentShowHint = False ShowHint = False TabOrder = 8 OnClick = Button19Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550 3055577777555557F7F5550005555559995555777555555777550000} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 162 Top = 52 Width = 95 Height = 25 Caption = 'Delete profile' ParentShowHint = False ShowHint = False TabOrder = 9 OnClick = Button20Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033 3333333337FFF7F33333333330000033333333333777773333330000} NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 162 Top = 84 Width = 95 Height = 25 Caption = 'Modify profile' ParentShowHint = False ShowHint = False TabOrder = 10 OnClick = Button21Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 end object Edit2: TEdit Left = 6 Top = 174 Width = 137 Height = 21 TabOrder = 4 end object Button5: TButton Left = 339 Top = 90 Width = 113 Height = 21 Caption = '&Stop Transfer' TabOrder = 12 OnClick = Button4Click end end object TabSheet2: TTabSheet Caption = 'Connection page' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False object SpeedButton4: TSpeedButton Left = 208 Top = 204 Width = 25 Height = 25 Hint = 'Send file to local hard disk' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333FF3333333333333003333333333333F88F3333333333300C033 333333333F8838F33333333300CCC0333333333F883338FFFFFF3300CCCCC000 00003F8833333888888800CCCCCCCCCCCCC0883FF33333FFFFF83300CCCCC000 000033883FF338888888333300CCC03333333333883FF8F3333333333300C033 33333333338838F3333333333333003333333333333388333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object SpeedButton5: TSpeedButton Left = 208 Top = 235 Width = 25 Height = 25 Hint = 'Send file to server' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333FF3333333333333003333 3333333333883FF333333333330C003333333333338F883FF3333333330CCC00 33333FFFFF8F33883FF30000000CCCCC0033888888833333883F0CCCCCCCCCCC CC008FFFFFFF33333F880000000CCCCC00338888888F333F88333333330CCC00 33333333338F3F8833333333330C003333333333338F88333333333333003333 3333333333883333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object SpeedButton16: TSpeedButton Left = 208 Top = 16 Width = 25 Height = 25 Hint = 'Quick Connect' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300 0000377777FFFF7777770FFFF099990FFFF07FFFF777777FFFF7000000333300 00007777773333777777307703333330770337FF7F333337FF7F300003333330 0003377773333337777333993333333399333F7FFFF3333FF7FF000000333300 0000777777F3337777770FFFF033330FFFF07FFFF7F3337FFFF7000000333300 00007777773333777777307703333330770337FF7F333337FF7F300003333330 0003377773FFFFF777733393300000033933337F3777777F37F3339990FFFF09 99333373F7FFFF7FF73333399000000993333337777777777333333333077033 33333333337FF7F33333333333000033333333333377773333330000} Layout = blGlyphTop NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton16Click end object Panel4: TPanel Left = 7 Top = 11 Width = 194 Height = 295 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object DirectoryListBox2: TDirectoryListBox Left = 6 Top = 25 Width = 181 Height = 102 Hint = 'Righ click for options' Ctl3D = True Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 ParentCtl3D = False ParentFont = False ParentShowHint = False PopupMenu = PopupMenu5 ShowHint = True TabOrder = 1 end object DriveComboBox2: TDriveComboBox Left = 6 Top = 5 Width = 181 Height = 19 Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object FileListBox2: TFileListBox Left = 6 Top = 152 Width = 181 Height = 136 Hint = 'Right click for options' FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal] Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Mask = '*.htm; *.html' ParentFont = False ParentShowHint = False PopupMenu = PopupMenu6 ShowHint = True TabOrder = 3 OnDblClick = FileListBox2DblClick end object Button18: TButton Left = 122 Top = 46 Width = 45 Height = 25 Hint = 'Make Directory' Caption = 'MkDir' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 Visible = False OnClick = Button2Click end object Button22: TButton Left = 123 Top = 68 Width = 45 Height = 25 Hint = 'Remove Directory' Caption = 'RmDir' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 5 Visible = False OnClick = Button3Click end object FilterComboBox2: TFilterComboBox Left = 6 Top = 129 Width = 181 Height = 21 Filter = 'Html files (*.html; *.htm)|*.htm*|Java files (*.java*)|*.java*|J' + 'PEG images (*.jpg;*.jpeg)|*.jpg;*.jpeg|GIF images (*.gif)|*.gif|' + 'Perl/CGI scripts (*.pl)|*.pl|Text files (*.txt)|*.txt|Executable' + 's (*.exe)|*.exe|All files (*.*)|*.*' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end end object Button23: TButton Left = 124 Top = 172 Width = 45 Height = 25 Hint = 'Make Directory' Caption = 'View' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 Visible = False OnClick = Button6Click end object Button24: TButton Left = 116 Top = 197 Width = 45 Height = 25 Hint = 'Remove Directory' Caption = 'Exec' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 Visible = False OnClick = Button7Click end object Button25: TButton Left = 100 Top = 221 Width = 45 Height = 25 Hint = 'Make Directory' Caption = 'Rename' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 Visible = False OnClick = Button9Click end object Button26: TButton Left = 116 Top = 245 Width = 45 Height = 25 Hint = 'Remove Directory' Caption = 'Delete' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 Visible = False OnClick = browse1click end object Button27: TButton Left = 108 Top = 267 Width = 45 Height = 25 Hint = 'Remove Directory' Caption = 'Refresh' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 5 Visible = False OnClick = Button14Click end object Panel1: TPanel Left = 237 Top = 11 Width = 215 Height = 295 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 6 object ListBox3: TListBox Left = 7 Top = 5 Width = 201 Height = 124 Hint = 'Right click for options' Color = clBlack Font.Color = clRed Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False ParentShowHint = False PopupMenu = PopupMenu3 ShowHint = True TabOrder = 4 OnDblClick = ListBox1DblClick end object ListBox4: TListBox Left = 7 Top = 132 Width = 201 Height = 157 Hint = 'Right click for options' Color = clBlack Font.Color = clLime Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False ParentShowHint = False PopupMenu = PopupMenu4 ShowHint = True TabOrder = 5 end object Button2: TButton Left = 6 Top = 20 Width = 45 Height = 25 Hint = 'Make Directory' Caption = 'MkDir' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 Visible = False OnClick = MkDirFTPBtnClick end object Button3: TButton Left = 6 Top = 44 Width = 45 Height = 25 Hint = 'Remove Directory' Caption = 'RmDir' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 Visible = False OnClick = RmDirFTPBtnClick end object Button6: TButton Left = 6 Top = 156 Width = 45 Height = 25 Hint = 'Make Directory' Caption = 'Rename' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 Visible = False OnClick = Button12Click end object Button7: TButton Left = 6 Top = 180 Width = 45 Height = 25 Hint = 'Remove Directory' Caption = 'Delete' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 Visible = False OnClick = Button13Click end object Button8: TButton Left = 6 Top = 204 Width = 45 Height = 25 Hint = 'Remove Directory' Caption = 'Refresh' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 6 Visible = False OnClick = Button15Click end end object Button14: TButton Left = 369 Top = 244 Width = 75 Height = 25 Caption = 'Button19' TabOrder = 7 Visible = False OnClick = Button19Click end object Button28: TButton Left = 369 Top = 180 Width = 75 Height = 25 Caption = 'Button20' TabOrder = 8 Visible = False OnClick = Button20Click end object Button29: TButton Left = 369 Top = 212 Width = 75 Height = 25 Caption = 'Button21' TabOrder = 9 Visible = False OnClick = Button21Click end end object TabSheet3: TTabSheet Caption = 'Mini-File Manager' object SpeedButton3: TSpeedButton Left = 200 Top = 8 Width = 25 Height = 25 Hint = 'Remove directory' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033 3333333337FFF7F33333333330000033333333333777773333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton11: TSpeedButton Left = 232 Top = 8 Width = 25 Height = 25 Hint = 'Rename file' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550 3055577777555557F7F5550005555559995555777555555777550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton11Click end object SpeedButton12: TSpeedButton Left = 256 Top = 8 Width = 25 Height = 25 Hint = 'Delete file' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0 B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000 B0557777FF577777F7F500000E055550805577777F7555575755500000555555 05555777775555557F55550005555555055555777555555575550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton12Click end object SpeedButton13: TSpeedButton Left = 280 Top = 8 Width = 25 Height = 25 Hint = 'View file' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33033333333333333F8F3333333333333000333333333333F888333333333333 000333333333333F888333333333333000333333333333F88833333333333300 033333333FFF3F888333333800083B803333333F8883F88833333308888800B3 33333388333888833333308F7F7F8033333338F3333338F3333388F7F7F7F883 333338333333383F3333087F7F7F780333338F333333338F333308F7F7F7F803 33338F333333338F3333087F7F7F7803333383F333333383333388F7F7F7F883 333338F3333338F33333308F7F7F80333333383FF333F8333333330888880333 333333883FF88333333333380008333333333333888333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton13Click end object SpeedButton1: TSpeedButton Left = 175 Top = 8 Width = 25 Height = 25 Hint = 'Create directory' Glyph.Data = { 36010000424D3601000000000000760000002800000014000000130000000100 040002000000C000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00147700001477 000002770A0000080777777700000004770B08FB00080777777700000004770F 08BF00080777777700000004770B08FB00080777777700000004770F08BF0008 0770777700000004770B08FB00080707777700000004770F08BF000800777777 000002770A00000877070777000000147770BFBF077070777777000000147777 000077070707777700000877000C70777770777700000C770008077777770000 147700000C770008077777770000147700001477000014770001} ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton14: TSpeedButton Left = 304 Top = 8 Width = 25 Height = 25 Hint = 'Show/Hide icons' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000 0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F 00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F 00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00 F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0 F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF 0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF 00337777FFFF77FF7733EEEE00000000033377777777777773330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True Visible = False end object SpeedButton15: TSpeedButton Left = 424 Top = 8 Width = 25 Height = 25 Hint = 'Windows Version' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB 3333333773FFFF77333333333FBFBF33333333333777773333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton15Click end object DriveComboBox1: TDriveComboBox Left = 8 Top = 16 Width = 161 Height = 19 TabOrder = 0 end object DirectoryListBox1: TDirectoryListBox Left = 8 Top = 40 Width = 161 Height = 257 ItemHeight = 16 TabOrder = 1 end object FileListBox1: TFileListBox Left = 176 Top = 40 Width = 275 Height = 257 FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal] ItemHeight = 16 PopupMenu = PopupMenu7 ShowGlyphs = True TabOrder = 2 OnDblClick = FileListBox1DblClick end end object TabSheet4: TTabSheet Caption = 'Application setup' object Label4: TLabel Left = 16 Top = 8 Width = 87 Height = 13 Caption = 'Telnet application:' end object Label5: TLabel Left = 16 Top = 48 Width = 56 Height = 13 Caption = 'IP Checker:' end object Label6: TLabel Left = 16 Top = 88 Width = 64 Height = 13 Caption = 'File Manager:' end object Label7: TLabel Left = 16 Top = 128 Width = 88 Height = 13 Caption = 'Windows Explorer:' end object Label9: TLabel Left = 16 Top = 168 Width = 57 Height = 13 Caption = 'FTP Server:' end object Label16: TLabel Left = 16 Top = 208 Width = 77 Height = 13 Caption = 'WWW Browser:' end object Bevel3: TBevel Left = 0 Top = 0 Width = 457 Height = 257 Shape = bsFrame Style = bsRaised end object Edit3: TEdit Left = 16 Top = 24 Width = 161 Height = 19 CharCase = ecUpperCase Ctl3D = False ParentCtl3D = False TabOrder = 0 Text = 'TELNET.EXE' end object Edit7: TEdit Left = 16 Top = 64 Width = 161 Height = 19 CharCase = ecUpperCase Ctl3D = False ParentCtl3D = False TabOrder = 3 Text = 'WINIPCFG.EXE' end object Edit8: TEdit Left = 16 Top = 104 Width = 161 Height = 19 CharCase = ecUpperCase Ctl3D = False ParentCtl3D = False TabOrder = 6 Text = 'WINFILE.EXE' end object Edit9: TEdit Left = 16 Top = 144 Width = 161 Height = 19 CharCase = ecUpperCase Ctl3D = False ParentCtl3D = False TabOrder = 9 Text = 'EXPLORER.EXE' end object Edit10: TEdit Left = 16 Top = 184 Width = 161 Height = 19 CharCase = ecUpperCase Ctl3D = False ParentCtl3D = False TabOrder = 12 end object Edit11: TEdit Left = 16 Top = 224 Width = 161 Height = 19 CharCase = ecUpperCase Ctl3D = False ParentCtl3D = False TabOrder = 15 Text = 'IEXPLORE.EXE' end object BitBtn4: TBitBtn Left = 192 Top = 24 Width = 75 Height = 25 Caption = 'Browse' TabOrder = 1 OnClick = BitBtn4Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF55555000000000055555577777777775FFFF00B8B8B8B8B0 0000775F5555555777770B0B8B8B8B8B0FF07F75F555555575F70FB0B8B8B8B8 B0F07F575FFFFFFFF7F70BFB0000000000F07F557777777777570FBFBF0FFFFF FFF07F55557F5FFFFFF70BFBFB0F000000F07F55557F777777570FBFBF0FFFFF FFF075F5557F5FFFFFF750FBFB0F000000F0575FFF7F777777575700000FFFFF FFF05577777F5FF55FF75555550F00FF00005555557F775577775555550FFFFF 0F055555557F55557F755555550FFFFF00555555557FFFFF7755555555000000 05555555557777777555555555555555555555555555555555550000} NumGlyphs = 2 end object BitBtn5: TBitBtn Left = 192 Top = 64 Width = 75 Height = 25 Caption = 'Browse' TabOrder = 4 OnClick = BitBtn5Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF55555000000000055555577777777775FFFF00B8B8B8B8B0 0000775F5555555777770B0B8B8B8B8B0FF07F75F555555575F70FB0B8B8B8B8 B0F07F575FFFFFFFF7F70BFB0000000000F07F557777777777570FBFBF0FFFFF FFF07F55557F5FFFFFF70BFBFB0F000000F07F55557F777777570FBFBF0FFFFF FFF075F5557F5FFFFFF750FBFB0F000000F0575FFF7F777777575700000FFFFF FFF05577777F5FF55FF75555550F00FF00005555557F775577775555550FFFFF 0F055555557F55557F755555550FFFFF00555555557FFFFF7755555555000000 05555555557777777555555555555555555555555555555555550000} NumGlyphs = 2 end object BitBtn6: TBitBtn Left = 192 Top = 104 Width = 75 Height = 25 Caption = 'Browse' TabOrder = 7 OnClick = BitBtn6Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF55555000000000055555577777777775FFFF00B8B8B8B8B0 0000775F5555555777770B0B8B8B8B8B0FF07F75F555555575F70FB0B8B8B8B8 B0F07F575FFFFFFFF7F70BFB0000000000F07F557777777777570FBFBF0FFFFF FFF07F55557F5FFFFFF70BFBFB0F000000F07F55557F777777570FBFBF0FFFFF FFF075F5557F5FFFFFF750FBFB0F000000F0575FFF7F777777575700000FFFFF FFF05577777F5FF55FF75555550F00FF00005555557F775577775555550FFFFF 0F055555557F55557F755555550FFFFF00555555557FFFFF7755555555000000 05555555557777777555555555555555555555555555555555550000} NumGlyphs = 2 end object BitBtn7: TBitBtn Left = 192 Top = 144 Width = 75 Height = 25 Caption = 'Browse' TabOrder = 10 OnClick = BitBtn7Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF55555000000000055555577777777775FFFF00B8B8B8B8B0 0000775F5555555777770B0B8B8B8B8B0FF07F75F555555575F70FB0B8B8B8B8 B0F07F575FFFFFFFF7F70BFB0000000000F07F557777777777570FBFBF0FFFFF FFF07F55557F5FFFFFF70BFBFB0F000000F07F55557F777777570FBFBF0FFFFF FFF075F5557F5FFFFFF750FBFB0F000000F0575FFF7F777777575700000FFFFF FFF05577777F5FF55FF75555550F00FF00005555557F775577775555550FFFFF 0F055555557F55557F755555550FFFFF00555555557FFFFF7755555555000000 05555555557777777555555555555555555555555555555555550000} NumGlyphs = 2 end object BitBtn8: TBitBtn Left = 192 Top = 184 Width = 75 Height = 25 Caption = 'Browse' TabOrder = 13 OnClick = BitBtn8Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF55555000000000055555577777777775FFFF00B8B8B8B8B0 0000775F5555555777770B0B8B8B8B8B0FF07F75F555555575F70FB0B8B8B8B8 B0F07F575FFFFFFFF7F70BFB0000000000F07F557777777777570FBFBF0FFFFF FFF07F55557F5FFFFFF70BFBFB0F000000F07F55557F777777570FBFBF0FFFFF FFF075F5557F5FFFFFF750FBFB0F000000F0575FFF7F777777575700000FFFFF FFF05577777F5FF55FF75555550F00FF00005555557F775577775555550FFFFF 0F055555557F55557F755555550FFFFF00555555557FFFFF7755555555000000 05555555557777777555555555555555555555555555555555550000} NumGlyphs = 2 end object BitBtn9: TBitBtn Left = 192 Top = 224 Width = 75 Height = 25 Caption = 'Browse' TabOrder = 16 OnClick = BitBtn9Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF55555000000000055555577777777775FFFF00B8B8B8B8B0 0000775F5555555777770B0B8B8B8B8B0FF07F75F555555575F70FB0B8B8B8B8 B0F07F575FFFFFFFF7F70BFB0000000000F07F557777777777570FBFBF0FFFFF FFF07F55557F5FFFFFF70BFBFB0F000000F07F55557F777777570FBFBF0FFFFF FFF075F5557F5FFFFFF750FBFB0F000000F0575FFF7F777777575700000FFFFF FFF05577777F5FF55FF75555550F00FF00005555557F775577775555550FFFFF 0F055555557F55557F755555550FFFFF00555555557FFFFF7755555555000000 05555555557777777555555555555555555555555555555555550000} NumGlyphs = 2 end object BitBtn10: TBitBtn Left = 280 Top = 24 Width = 75 Height = 25 Caption = 'Run' TabOrder = 2 OnClick = BitBtn10Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 end object BitBtn11: TBitBtn Left = 280 Top = 64 Width = 75 Height = 25 Caption = 'Run' TabOrder = 5 OnClick = BitBtn11Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 end object BitBtn12: TBitBtn Left = 280 Top = 104 Width = 75 Height = 25 Caption = 'Run' TabOrder = 8 OnClick = BitBtn12Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 end object BitBtn13: TBitBtn Left = 280 Top = 144 Width = 75 Height = 25 Caption = 'Run' TabOrder = 11 OnClick = BitBtn13Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 end object BitBtn14: TBitBtn Left = 280 Top = 184 Width = 75 Height = 25 Caption = 'Run' TabOrder = 14 OnClick = BitBtn14Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 end object BitBtn15: TBitBtn Left = 280 Top = 224 Width = 75 Height = 25 Caption = 'Run' TabOrder = 17 OnClick = BitBtn15Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 end object BitBtn16: TBitBtn Left = 8 Top = 264 Width = 89 Height = 25 Hint = 'ftp.microsoft.com' Caption = 'Microsoft' ParentShowHint = False ShowHint = True TabOrder = 18 OnClick = BitBtn16Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300 0000377777F3337777770FFFF099990FFFF07FFFF7FFFF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 000337777337F337777333333339933333333FFFFFF7F33FFFFF000000399300 0000777777F7F37777770FFFF099990FFFF07FFFF7F7FF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 0003377773F7FFF77773333330000003333333333777777F3333333330FFFF03 3333333337FFFF7F333333333000000333333333377777733333333333077033 33333333337FF7F33333333333000033333333333377773333330000} NumGlyphs = 2 end object BitBtn17: TBitBtn Left = 96 Top = 264 Width = 89 Height = 25 Hint = 'ftp.idsoftware.com' Caption = 'ID Software' ParentShowHint = False ShowHint = True TabOrder = 19 OnClick = BitBtn17Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300 0000377777F3337777770FFFF099990FFFF07FFFF7FFFF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 000337777337F337777333333339933333333FFFFFF7F33FFFFF000000399300 0000777777F7F37777770FFFF099990FFFF07FFFF7F7FF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 0003377773F7FFF77773333330000003333333333777777F3333333330FFFF03 3333333337FFFF7F333333333000000333333333377777733333333333077033 33333333337FF7F33333333333000033333333333377773333330000} NumGlyphs = 2 end object BitBtn18: TBitBtn Left = 184 Top = 264 Width = 89 Height = 25 Hint = 'ftp.netscape.com' Caption = 'Netscape' ParentShowHint = False ShowHint = True TabOrder = 20 OnClick = BitBtn18Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300 0000377777F3337777770FFFF099990FFFF07FFFF7FFFF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 000337777337F337777333333339933333333FFFFFF7F33FFFFF000000399300 0000777777F7F37777770FFFF099990FFFF07FFFF7F7FF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 0003377773F7FFF77773333330000003333333333777777F3333333330FFFF03 3333333337FFFF7F333333333000000333333333377777733333333333077033 33333333337FF7F33333333333000033333333333377773333330000} NumGlyphs = 2 end object BitBtn19: TBitBtn Left = 272 Top = 264 Width = 89 Height = 25 Hint = 'ftp.borland.com' Caption = 'Borland' ParentShowHint = False ShowHint = True TabOrder = 21 OnClick = BitBtn19Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300 0000377777F3337777770FFFF099990FFFF07FFFF7FFFF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 000337777337F337777333333339933333333FFFFFF7F33FFFFF000000399300 0000777777F7F37777770FFFF099990FFFF07FFFF7F7FF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 0003377773F7FFF77773333330000003333333333777777F3333333330FFFF03 3333333337FFFF7F333333333000000333333333377777733333333333077033 33333333337FF7F33333333333000033333333333377773333330000} NumGlyphs = 2 end object BitBtn20: TBitBtn Left = 360 Top = 264 Width = 89 Height = 25 Hint = 'ftp.tucows.com' Caption = 'TUCOWS' ParentShowHint = False ShowHint = True TabOrder = 22 OnClick = BitBtn20Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300 0000377777F3337777770FFFF099990FFFF07FFFF7FFFF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 000337777337F337777333333339933333333FFFFFF7F33FFFFF000000399300 0000777777F7F37777770FFFF099990FFFF07FFFF7F7FF7FFFF7000000999900 00007777777777777777307703399330770337FF7F37F337FF7F300003399330 0003377773F7FFF77773333330000003333333333777777F3333333330FFFF03 3333333337FFFF7F333333333000000333333333377777733333333333077033 33333333337FF7F33333333333000033333333333377773333330000} NumGlyphs = 2 end end end end object Panel2: TPanel Left = 0 Top = 353 Width = 473 Height = 0 Caption = 'Panel2' TabOrder = 8 end object Ftp1: TStarFtp FtpPort = 21 TransferMode = BinaryTransfer OnFtpInfo = Ftp1FtpInfo OnFtpNeedInfo = Ftp1FtpNeedInfo OnFtpError = Ftp1FtpError WinsockStarted = False Version = 'TFtp 1.4.2' OnLoggedIn = NeedNewFTPListing OnDirectoryChanged = NeedNewFTPListing OnDirectoryCreated = NeedNewFTPListing OnDirectoryDeleted = NeedNewFTPListing OnFileDeleted = NeedNewFTPListing OnFileReceived = Ftp1FileReceived OnFileStored = Ftp1FileStored OnListingDone = Ftp1ListingDone OnFileRenamed = NeedNewFTPListing OnFtpQuit = Ftp1FtpQuit ServerType = ftpstDefault TimeOutConnect = 30 TimeOutArp = 20 Left = 437 Top = 316 end object MainMenu1: TMainMenu Left = 431 Top = 1 object File1: TMenuItem Caption = '&File' ShortCut = 0 object Connect1: TMenuItem Caption = '&Connect' ShortCut = 16451 OnClick = ConnectBtnClick end object Disconnect1: TMenuItem Caption = '&Disconnect' ShortCut = 16452 OnClick = Button11Click end object SenmMail1: TMenuItem Caption = 'Send &Mail...' Enabled = False ShortCut = 0 Visible = False end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Save1: TMenuItem Caption = '&Save Log As...' ShortCut = 0 OnClick = Save1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 32883 OnClick = Exit1Click end end object Options1: TMenuItem Caption = '&Options' ShortCut = 0 object Local1: TMenuItem Caption = '&Local' ShortCut = 0 object CreateDirectory2: TMenuItem Caption = '&Create Directory' ShortCut = 0 OnClick = Button2Click end object RemoveDirectory2: TMenuItem Caption = '&Remove Directory' ShortCut = 0 OnClick = Button3Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object Viewfile1: TMenuItem Caption = '&View file' ShortCut = 0 OnClick = Button6Click end object Exec2: TMenuItem Caption = '&Execute' ShortCut = 0 OnClick = Button7Click end object Renamefile1: TMenuItem Caption = 'Re&name file' ShortCut = 0 OnClick = Button9Click end object Deletefile1: TMenuItem Caption = '&Delete file' ShortCut = 0 OnClick = browse1click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object Refresh3: TMenuItem Caption = 'Re&fresh' ShortCut = 0 OnClick = Button14Click end end object Remote1: TMenuItem Caption = '&Remote' ShortCut = 0 object CreateDirectory3: TMenuItem Caption = '&Create Directory' ShortCut = 0 OnClick = MkDirFTPBtnClick end object RemoveDirectory3: TMenuItem Caption = '&Remove Directory' ShortCut = 0 OnClick = RmDirFTPBtnClick end object N6: TMenuItem Caption = '-' ShortCut = 0 end object Renamefile2: TMenuItem Caption = 'Re&name file' ShortCut = 0 OnClick = Button12Click end object Deletefiel1: TMenuItem Caption = '&Delete file' ShortCut = 0 OnClick = Button13Click end object N7: TMenuItem Caption = '-' ShortCut = 0 end object Refresh4: TMenuItem Caption = 'Re&fresh' ShortCut = 0 OnClick = Button15Click end end object Statusbar2: TMenuItem Caption = '&Status Bar' ShortCut = 0 OnClick = Statusbar2Click end object Showtoolsonpanel1: TMenuItem Caption = 'Show tools on &panel' ShortCut = 0 OnClick = Showtoolsonpanel1Click end end object Tools1: TMenuItem Caption = '&Tools' ShortCut = 0 object Notepad1: TMenuItem Caption = '&Notepad' ShortCut = 32846 OnClick = Notepad1Click end object FileManager1: TMenuItem Caption = 'File &Manager' ShortCut = 32845 OnClick = FileManager1Click end object WindowsExplorer1: TMenuItem Caption = 'Windows &Explorer' ShortCut = 32837 OnClick = WindowsExplorer1Click end object Findfiles1: TMenuItem Caption = '&Find' ShortCut = 0 Visible = False object OntheInternet1: TMenuItem Caption = 'On the &Internet...' ShortCut = 0 OnClick = OntheInternet1Click end end object N8: TMenuItem Caption = '-' ShortCut = 0 end object WWWBrowser1: TMenuItem Caption = 'WWW &Browser' ShortCut = 119 OnClick = WWWBrowser1Click end object FTPServer1: TMenuItem Caption = 'FTP &Server' ShortCut = 120 OnClick = FTPServer1Click end object MyIPaddress1: TMenuItem Caption = '&IP Check...' Hint = 'Run Windows Utility (WINIPCFG)' ShortCut = 121 OnClick = MyIPaddress1Click end object FTPConsole1: TMenuItem Caption = 'FTP &Console' Hint = 'Run text-based FTP client' ShortCut = 122 OnClick = FTPConsole1Click end object Telnet1: TMenuItem Caption = 'Tel&net' Hint = 'Run Microsoft Telnet Client' ShortCut = 123 OnClick = Telnet1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object Help2: TMenuItem Caption = 'Help' ShortCut = 112 OnClick = Help2Click end object About1: TMenuItem Caption = '&About...' ShortCut = 0 OnClick = Button1Click end object Register1: TMenuItem Caption = '&Register' ShortCut = 0 OnClick = Register1Click end object License1: TMenuItem Caption = '&License' ShortCut = 0 OnClick = License1Click end end end object SaveDialog1: TSaveDialog DefaultExt = '*.log' FileEditStyle = fsEdit FileName = 'FTP log.log' Filter = 'FTP Connect log file (*.log)|*.log|Text file (*.txt)|*.txt' InitialDir = 'C:\' Options = [ofHideReadOnly, ofNoNetworkButton] Left = 144 Top = 480 end object Timer1: TTimer Enabled = False Interval = 1800000 OnTimer = Timer1Timer Left = 176 Top = 456 end object Timer2: TTimer Interval = 10000 OnTimer = Timer2Timer Left = 120 Top = 464 end object PopupMenu5: TPopupMenu Left = 23 object MenuItem1: TMenuItem Caption = 'Create Directory' ShortCut = 0 OnClick = Button2Click end object MenuItem2: TMenuItem Caption = 'Remove Directory' ShortCut = 0 OnClick = Button3Click end end object PopupMenu6: TPopupMenu Left = 139 Top = 65532 object MenuItem3: TMenuItem Caption = 'View' ShortCut = 0 OnClick = Button6Click end object MenuItem4: TMenuItem Caption = 'Execute' ShortCut = 0 OnClick = Button7Click end object MenuItem5: TMenuItem Caption = 'Rename' ShortCut = 0 OnClick = Button9Click end object MenuItem6: TMenuItem Caption = 'Delete' ShortCut = 0 OnClick = browse1click end object MenuItem7: TMenuItem Caption = '-' ShortCut = 0 end object MenuItem8: TMenuItem Caption = 'Refresh' ShortCut = 0 OnClick = Button14Click end end object PopupMenu3: TPopupMenu Left = 365 Top = 65533 object MenuItem9: TMenuItem Caption = 'Create Directory' ShortCut = 0 OnClick = MkDirFTPBtnClick end object MenuItem10: TMenuItem Caption = 'Remove Directory' ShortCut = 0 OnClick = RmDirFTPBtnClick end end object PopupMenu4: TPopupMenu Left = 397 Top = 65530 object MenuItem11: TMenuItem Caption = 'Rename' ShortCut = 0 OnClick = Button12Click end object MenuItem12: TMenuItem Caption = 'Delete' ShortCut = 0 OnClick = Button13Click end object MenuItem13: TMenuItem Caption = '-' ShortCut = 0 end object MenuItem14: TMenuItem Caption = 'Refresh' ShortCut = 0 OnClick = Button15Click end end object PopupMenu1: TPopupMenu Left = 254 Top = 65524 object Clearlog1: TMenuItem Caption = 'Clear log' ShortCut = 0 OnClick = SpeedButton6Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Savelog1: TMenuItem Caption = 'Save log' ShortCut = 0 OnClick = SpeedButton7Click end end object Timer3: TTimer Interval = 600000 OnTimer = Timer3Timer Left = 193 Top = 65533 end object Timer4: TTimer Interval = 10000 OnTimer = Timer4Timer Left = 385 Top = 1 end object PopupMenu2: TPopupMenu Left = 297 Top = 65521 object Addfavorite1: TMenuItem Caption = 'Add favorite server' ShortCut = 0 end object RemoveFTPserver1: TMenuItem Caption = 'Remove FTP server' ShortCut = 0 end end object PopupMenu7: TPopupMenu Left = 225 Top = 1 object Renamefile3: TMenuItem Caption = 'Rename file...' ShortCut = 0 OnClick = SpeedButton11Click end object Deletefile2: TMenuItem Caption = 'Delete file' ShortCut = 0 OnClick = SpeedButton12Click end object Viewfile2: TMenuItem Caption = 'View file' ShortCut = 0 OnClick = SpeedButton13Click end end object PopupMenu8: TPopupMenu Left = 81 Top = 1 object Createdirectory1: TMenuItem Caption = 'Create directory' ShortCut = 0 OnClick = SpeedButton1Click end object Removedirectpry1: TMenuItem Caption = 'Remove directory' ShortCut = 0 OnClick = SpeedButton3Click end end object Timer5: TTimer Enabled = False Interval = 600000 OnTimer = Timer5Timer Left = 377 Top = 321 end object OpenDialog: TOpenDialog DefaultExt = '*.exe' FileEditStyle = fsEdit Filter = 'Programs|*.exe' InitialDir = '\' Options = [ofHideReadOnly] Title = 'Select executable application' Left = 409 Top = 313 end object Timer6: TTimer OnTimer = Timer6Timer Left = 65 Top = 313 end end